home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / TOUCH.BAS < prev    next >
BASIC Source File  |  1995-12-14  |  980b  |  27 lines
  1. 1 '(c) SysOp of The NoName-BBS: Ersin Kecis
  2. 2 'The NoName-BBS: +90352-2353231,14400,8N1,24hrs,1.2+Gigs
  3. 10 SCREEN 0,0,0:WIDTH 80:KEY OFF:CLS:BEEP
  4. 20 A$=" LÜTFEN DOKUNMAYIN! ":X=500
  5. 30 FOR I=1 TO 59:LOCATE 1,I:PRINT A$:GOSUB 230
  6. 40 Z$=INKEY$:IF Z$=CHR$(27) THEN 240
  7. 50 IF Z$="+" THEN X=X+100
  8. 60 IF Z$="-" THEN X=X-100
  9. 70 LOCATE 13,38:PRINT X:NEXT I
  10. 80 FOR I=1 TO 23:CLS:LOCATE I,59:PRINT A$:GOSUB 230
  11. 90 Z$=INKEY$:IF Z$=CHR$(27) THEN 240
  12. 100 IF Z$="+" THEN X=X+100
  13. 110 IF Z$="-" THEN X=X-100
  14. 120 LOCATE 13,38:PRINT X:NEXT I
  15. 130 FOR I=59 TO 1 STEP -1:CLS:LOCATE 23,I:PRINT A$:GOSUB 230
  16. 140 Z$=INKEY$:IF Z$=CHR$(27) THEN 240
  17. 150 IF Z$="+" THEN X=X+100
  18. 160 IF Z$="-" THEN X=X-100
  19. 170 LOCATE 13,38:PRINT X:NEXT I
  20. 180 FOR I=23 TO 1 STEP -1:CLS:LOCATE I,1:PRINT A$:GOSUB 230
  21. 190 Z$=INKEY$:IF Z$=CHR$(27) THEN 240
  22. 200 IF Z$="+" THEN X=X+100
  23. 210 IF Z$="-" THEN X=X-100
  24. 220 LOCATE 13,38:PRINT X:NEXT I:GOTO 30
  25. 230 FOR P=0 TO X:NEXT P:RETURN
  26. 240 KEY ON:CLS:BEEP:END
  27.